library(hexSticker)

# https://pixabay.com/illustrations/graduation-hats-throw-graduation-4906359/
cap <- "images/happy_cap.png"

sticker(cap,
  package = "thesisdown",
  p_family = "Aller_Rg",
  p_size = 7, p_color = "#5B5040", # p_x = 4, p_y = 1.4,
  s_x = 1, s_y = .8, s_width = 0.75, s_height = 0.75,
  h_fill = "#FAECC7", h_color = "#5B5040",
  filename = "thesisdown_hex.png",
  url = "thesisdown.rbind.io"
)

# Final image was revised in Adobe Illustrator
